Game Infinity - ECTS (UK) (Press Kit)/Game Infinity - ECTS (UK) (Press Kit).bin/data/min-2.dxr/00051.ls

Text File | 2000-08-11 | 1.8 KB | 90 lines

global upnum, downnum, upname, downname, aa, aaa, bb, cc

on buttonclicked
  spriteNum = the clickOn
  upnum = the memberNum of sprite spriteNum
  upname = member(upnum).name
  downname = upname && "down"
  downnum = the number of member downname
  puppetSound("msdown")
  set the memberNum of sprite spriteNum to downnum
  updateStage()
  repeat while the mouseDown
    if rollover(spriteNum) then
      set the memberNum of sprite spriteNum to downnum
      set the cursor of sprite aaa to [103, 104]
    else
      set the memberNum of sprite spriteNum to upnum
    end if
    updateStage()
  end repeat
  if the memberNum of sprite spriteNum = downnum then
    set the memberNum of sprite spriteNum to upnum
    updateStage()
    return 1
  end if
  return 0
end

on roll2
  aa = the mouseMember
  bb = word 2 of string(aa)
  cc = integer(bb)
  if rollover(aaa) then
    sprite(aaa).memberNum = cc + 1
    sprite(4).memberNum = aaa + 100
    set the cursor of sprite aaa to [101, 102]
    updateStage()
  else
    sprite(aaa).memberNum = cc
    sprite(4).memberNum = 110
    updateStage()
  end if
  updateStage()
end

on roll
  aa = the mouseMember
  bb = word 2 of string(aa)
  cc = integer(bb)
  if rollover(aaa) then
    sprite(aaa).memberNum = cc + 1
    set the cursor of sprite aaa to [101, 102]
  else
    sprite(aaa).memberNum = cc
  end if
  updateStage()
end

on gogo
  set the cursor of sprite aaa to [105, 106]
  puppetSound("msup")
  if aaa = 6 then
    go(1, "min-1")
  end if
  if aaa = 7 then
    gotonetpage("http://www.mincoms.co.kr")
  end if
  if aaa = 8 then
    go(1, "quit")
  end if
  if aaa = 9 then
    go(1, "main")
  end if
  if aaa = 10 then
    go(1, "min")
  end if
  if aaa = 21 then
    go("b")
  end if
  if aaa = 22 then
    go("c")
  end if
  if aaa = 23 then
    go("a")
  end if
  if aaa = 24 then
    go("b")
  end if
end